program parm_coord
    implicit none
    real(kind=8) :: u, v, w, uv, uw, vw, wvu, du, dv, dw
    real(kind=8) :: oneMinusU, oneMinusV, oneMinusW
    real(kind=8) :: oneMinusUMinusV
    real(kind=8) :: a11, a12, a13, a21, a22, a23
    real(kind=8) :: a31, a32, a33, val
    real(kind=8), dimension(3)     :: x, f
    real(kind=8), dimension(8)     :: weight
    real(kind=8), dimension(3,2:8) :: xn
    integer(kind=8), dimension(8) :: n


end program parm_coord